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- TITLE basseolt 
IDENT /1-009/ ; File: BASEDIT.MAR Edit: S$B8L1009 


PARAAAARAAAASALALAAALALAAAL EASES E RELA SERRE ERE R ASR RSA SERRA LER S ESSE SEER REE SS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS Pynnt Kee UNDER A LICENSE AND MAY BE USED AND sonic’ 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
es te ey THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 


* 
* 
& 
yy 
2 
a 
& 
® 
wy 
NO TITLE TO AND OWNERSHIP OF THE SOFTWARE 1S HEREBY * 
TRANSFERRED. . 
® 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHO NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. , 
a 

& 

te 
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® 
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DIGITAL ASSUMES NO RESPONS 
SOFTWARE ON EQUIPMENT WHIC 


ITY FOR THE USE OR RELIABILITY OF ITS 


IBILITY 
H IS NOT SUPPLIED BY DIGITAL. 
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Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge 


vw FACILITY: BASIC code support 

; ABSTRACT: 

This module implements the BASIC-PLUS-2 EDITS function. 
: ENVIRONMENT: User Mode, AST Reentrant 


: AUTHOR: R. WILL, CREATION DATE: 2-May-79 
; MODIFIED BY: 


SOOCCCOCOOCOCOCOOSOOOSCOOSCOOSOSSOOSOSOOSOOSOOSOOSCOOCOOOOOOOOOOOOoO 
COOCCCOSOSOCSOOCSOSSOSCOSCSOOSCCOOCOOO OOOO OOOOOCOOoOOoOO 


SOOOCSCOSOSCOOSOOOCOOSOOOOSOOSOOSOSOOSOSOSOSOSOOSOOOSOOSOOOOSOOOOOOOOOOOOSoOOo 
SOSCSCSCSOSOSOSOOSSOSOSSOOSOSOOSOSOSOSSSOSSOSOSSOSOSOSOSOSOSOOSOSOSOSOOOSOSOOSOOSOOSOSOOSoOOSO 


PU BB BEBE EE FANNIN III NIU DIPONIPINIPONINID 2 PP? PO OO OO OO 


PRO OWONA UE WIN (OOD NAUE WN 9 ODNAULS WN OO OONAULS WN OOONOUS win 


R. Will, : VERSION 1 

3 1-001 - Origin al 

1- fi - Fix Mew So of source and dest strs in TRM. RW 16-May-79 

0 1-005 = Enable IV in entry masks. RW 23-Ma aye 9 

; \~0be - thange colts. to A i. RSCOPY. JBS 16-JUL-1979 

- - Make . Sept- 

0 1-006 - String cleanup, call STRSTRM. RW 31-Oct-79 

0 1-007 = Remove BASTRM. RW 13-NOV-79 
000 1-008 = Add support a. international character set. ML 21-Jun-82 
000 1-009 - Use general addressing mode for all externals. SBL 3-Nov-1982 


aeo8 DECLARATIONS < = SEp-| 382 tf 3: 3 YBASRTL. Sh SRC BAS SEIT MAR: 1 — 3) 


68 : -SBTTL DECLARATIONS 
09 § 3 INCLUDE FILES: 
000 § SDSCDEF Defi d i ff 
3; Define descriptor offsets 
00 60 
4 61 ; 
B80 66 3 EXTERNAL DECLARATIONS: 
000 64 -DSABL GBL ; Prevent undeclared 
44 65 3; symbols from being 
44 26 3; automatically global. 
0000 68 -EXTRN STRSCOPY_DX_R8 ; copy input spring to temp 
0000 69 3 and temp — © output 
0000 70 -EXTRN STRSCOPY_R_RB 3 copy temp str to dest str 
0000 71 sEXTRN STRSFREET_BX ; deallocate temp string 
443 i “EXTRN STRSTRIM : routine to trim blanks and tabs 
44 74 ; 
000 75 ; MACROS: 
0000 76 ; 
0000 77 
0000 78 3¢ 
0000 79 : Macro to generate tables to translate ASCII characters. This macro 
0000 80 ; will generate a table of bytes starting at the designated character 
0000 81 : for the series of characters needed. 
0000 8S 
0000 84 -MACRO oe TRANS_TABLE, NUMBER_OF _CHARS, STARTING_CHAR 
0000 85 i = STARTING CHA 
0000 86 SREPT NUMBER OF __CHARS 
0000 87 ‘BYTE | 
0000 88 sf¢1 
0000 89 -ENDR 
000 90 ENDM 
000 91 
000 3g: 
000 G EQUATED SYMBOLS: 
000 94 ; 
000 95 
69000001 0000 38 blank al z oat t 
ace_or_ta = 
§0099002 0000 98 junk k byt = *x0002 
00000004 0000 99 quo = *x0004 
00000003 090 199 ee tab_junk = *x0003 
0000000 00 1 trim_parity_bit = 0 
0 $8 1 000 198 disc . tab- bit = 1 
§ rs 104 disc_junk_bit = § 
0 105 disc_lead bit = 
00 4 1 $ compact_bit = 4 
005 1 upper_case_bit = 5 
0 $ 108 parens_bit = 6 
. 109 disc_ trait bit = 7 
000 8 00 110 ignof_quoté_bit = 8 
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DECLARATIONS 


EXE, RD, NOWRT, LONG 


-PSECT _BASSCODE PIC, USR, CON, REL, LCL, SHR, - 
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3 -SBTTL BASSEDIT - Perform BASIC EDITS function ; 


3+ 

3; FUNCTIONAL DESCRIPTION: 
This routine implements the BASIC-PLUS-2 EDIT$ function. 
for AST ponent renters the routine will create a local dynamic strin 
descriptor and call STRSCOPY to copy che source string to the local. 
The routine will then use the local string (which will not need to get 
larger) to do all the edit 4 necessary (since source and destination 
str ngs may overlap for the VAX character instructions. After the all 
the editing is finished, the routine will call STRSCOPY to copy the 
edited string to the destination string. 

CALLING SEQUENCE: 
CALL dest_string.wx.dx = BASSEDIT (src_string.rx.dx, mask.rwu.v) 

INPUT PARAMETERS: 


src_string = 8 
mask = 129 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
dest_string = 4 

IMPLICIT OUTPUTS: 
NONE 


FUNCTION VALUE: 
COMPLETION CODES: 


NONE | 
SIDE EFFECTS: | 


Be Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Se Se Ge Se Ge 


00000008 
0000000C 


00000004 


This routine calls STRSCOPY and so may have any of its side effects or 
signal ony of its errors. This includes allocating and deallocating 
dynamic string space, and write locking strings for a short time. 


ooo SOOOCCooCOoOoooooooooooosco 


Oooooooooo oo Sooo ooooooooooooooooo 


4FFC -ENTRY BASSEDIT, “M<R2,R3,R4,R5,R6,R7,R8B,R9,R10,R11,1V> 


g¢ 
; Create a local descriptor and copy the input string to it using STRSCOPY 


COOOOCOOCOSOSCOOSOOOOOCOOSOOOOOSOOOSOOSOSOOOSOSOOOSOSOOOOOOOOOOOOOOOOOOO 
MIMIMINININVOOOCOCOOCOOCOCOCOSOSSSSSSOSSOSOSOOSOCOSOSOSOOOOOOOOO OOOO OOOOOOO 


51 08 AC b9 


MOVL src_string(AP), R1 ; pointer to src ptring 
2 R - ng 
020E0000 8F ODD 


CLRL ; address of local str 
PUSHL  #<<DSC$K_CLASS_D @ 24> ! <DSCSK_BTYPE_T @ 16>> 


fill type, class and length 


SOSSOOSSSSOSOSOSSSSOSSSSSOSSSSSSOSSSOSOOSOSOSOOSSOOSOOOOOOOOOOOOO 
a ek a ad a a et ts ot ot ot = = = = = = = SS 2s Ss 3 SS SS ss SS ss 2s ss — Cs 6 2 ss os a 
NNN NNN NIAAA AA AAA AA MMMM UII SS BS BE WWIII WII III 


DOO NAME WIN @ O ODA UNE WIN OC OD NOAUE WN 9 OO NOU EWN =O OONOUE WN OOONOUSE 
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8805 BASSEDIT = Perform BASIC EDITS functio 6- oats 7 10:30;95 FBASRTL. SRCIBASEDIT. MAR: 1 ” 3) 
50 SE 00 MOVL SP, RO ; RO points to local descriptr 
00000000°F 16 991 JSB - @*$TRSCOPY_DX_RB S copy string to local” 
56 6—€ 3 1 CVTWL 4 OSCSW_LENGTH(SP), R6 ; get local string Length 
57° 04 AE OD MOVL DSCSATPOINTER(SPS, R7 ; get local string address 
58 OC AC 32 1 CVTWL =omask(AP), R8 ; Put mask into R8 


3* 
; if bit 0 set trim the parity (high) bit from all characters 
; otherwise go check bit 5. Im any case clear bit 0 in the copy. 


BBCC #trim parity bit, R8, DISCARD_LEADING ; clear the trim_par bit 
ao}, aol R (R? f 


0B 58 
00000195"EF 20 of MOVTC R6, (R7), #bTank, PARITY_TAB,”R6, (R7) ; translate intd self 


wine 
Oooo 


3¢ 
; if bit 3 set, discard leading tabs and spaces, otherwise go check bit 8. 
:; In any case clear bit 3 in the copy. 

DISCARD_LEADING: 
oc 58 O35 €5 B 


01 Q0000595°EF 67 56 B 
56 8650 D 


BCC #disc_lead_bit, R8, CHECK_QUOTE_BIT ; clear discard leading 
; find 1st non tab or space 
SPANC R6, (R7), SCAN_SPAN_TABLE, #space_or_tab 

mMOVa RO, R6 ; new Length & addr in R6 & R7 


3¢ 

3; Check if all editing has been completed (local mask is clear). Else 

3; check if we must Leave unchanged characters between quotes (or after a first 
3 quote). Divide algorithm based on it (bit 8). 


CHECK_QUOTE BIT: . 
TSTQ ; is all editing finished? 


DOOCOSCSOSSOSSSSOSSOSSSOSSSSSSSOSSSSSSSSSSSSOSSSOSSOSSOOO 
WOOO 0 0 OW 2 SM NN 3 SS TO ONOPONOMOPOPUMM mM & Sm 
WANA AAI PIPOPONIPDNINDPDID 4 2 = MOOS CSCOOCOCCOWOOWOO OOOOOMM@M@ODDODODODODOD ~U 
MEW OOONOUEWN 2 ODDNAUEWN “OCD DNAMNEWN OOODNAU FWNM OODNOUESWN HO 


PIPIPDPIPIPINIPINPIPINIDIPYIPIPIPIPUPIMNPININININPININPINIPYAININININPIPINIDS 9 9 Sa Ot tO 


SOOOCOOCOOOOCOOOOOOOOOSOOOOOOOOOCOOOSOOOOOOOOOOOOOOOOOSOO 


58 65 
2A «13 BEQLU RETURN 3 pes exit 
40 58 08 €0 BBS #ignor_quote_bit, R8, INIT_QUOTE_LOOP 
3¢ 
; Use remainder of bits to edit the entire airing. Note that R6 and R7 
3; are set to length and address from above (for EDI TS$$SUBSTRING) 
opoopoel’ér 16 JSB EDITSSSUBSTRING : 
1c 58 r>. os of BBC #disc_trail_bit, R8, RETURN ; trim bit not set, return 
33 TRIM_AND_RETURN: 
7 57 00 5 AOVL R7, -(SP) 3 create descriptor on stack 
56 ;_ for processed gyring 
7E 56 010€9000 ef co 0056 MORL3 #<<DSCSK_CLASS_S @ 24> ! <DSCSK_DTYPE_T @ 16>>, R6, ~(SP) 
E E 0 5E MOVL SP, =(SPT_ ; source string for trim 
04 f f 61 PUSHAQ agent ptrinatap) 3; dest string for trim 
0000090 * GF FB 64 CALLS #2, G*STRSTRIM 
ae 68 CLRO (SP)+ ; clean processed string desc 
6D : off of stack 
OD 171 6D BRB RET2 


N14 
ASSEDIT 15-SEP-1984 23:38:01 VAX/VMS Macro v04-00 p 
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oF 
50 04 AC 0 i codename MOVL dest_string(AP), RO desti i i 
es rin 5 3; destination strin 
51 56 » of 9 mMOva R6 ai ° ; source str by ret’ tor copy 
po009900" F 8 76 40 JSB G*STRSCOPY_R_RB 3; copy edited to dest 
E .. ¥ 7¢ 41 RET2: MOVL SP, =-(SP) ; address of temp str descr 
00000000 ' GF 1 £8 7F ts CALLS #1, G*STRSFREE1_DX ; deallocate temp string 
ee 66 4 CLRQ (SP)+ 3; pop temp descrptr from stack 
04 00 44 RET 
089 45 
089 és 3+ 
bBo 47 ; Bit 8 is set, so remaining bits do not alter any characters after a 
089 48 : quote and before a matching quote or the end of the string. 
089 49 ; Scan for quotes and pass unquoted substrings to routine to do editing 
0089 50 ; for remaining bits. 
0089 51 ;- 
0089 26 
| 0089 253 INIT_QUOTE LOOP: 
7E 57 00 0089 54 MOUL R7, =(SP) 3 save start of string 
7E D4 008C 55 CLRL -(§P) i space to accumulate edited 
OO8E 528 ; string length 
OO8E 57 
O08E 258 IGNORE_QUOTED: 
04 QO000595°EF 67 56 A 4433 259 SCANC R6, (R7), SCAN_SPAN_TABLE, #quote ; find address of quote 
59 8650 D 009 260 MOVQ RO, RO 3; save # remaining bytes 
009A 261 i save ptr to remaining string 
56 59 C2 OO9A $06 SUBL R9, R6 ; length of scanned string 
| OOOOd0ET"EF 16 009 26 JSB «EDA TS$SUBSTRING ; go edit scanned string 
00A3 64 3 on return, R6 & R7 describe 
OOAS 265 : edited substring 
6—€ 56 CO OQO0A 266 ADDL2 R6, (SP) ; head of scannedstring still 
| 00A6 267 3; abuts processed string, add 
O0A6 268 ; edited scanned 
O0A6 269 3; string len to processed len 
DS O0A6 270 TSTL R9 3; was end of string found? 
20 13 QOA8B 271 BEQL END_STR_UNQUOTE : yes, go clean up 
6647 6A 28 QOAA $f¢ MOVCS R9,~ (R10), (R6)CR7I ; make Fenaining string abut 
OQOAF 27 3; processed string 
5A 57 56 (C1 QOAF 274 ADDL3 R6, R7, R10 ; remaining string has been 
00B3 275 ; moved, point R10 to it 
59 7 OOBS 276 DECL RG ; len of rensining str - quote 
6A 59 BA A 0085 77 LOCC (R10)+, R9, (R10) 3 pick up quote character and 
0089 78 ; move RIO past it to find the 
B9 79 ; matching quote by 
Bg 0 ; looking in remaining string, 
0B9 1 ; for Len of remaining string 
50 07 00B9 ¢ DECL RO 3; subtract quote from remainng 
OF 1B QOBB 8 BLEQU END_STR_INQUOTE 3; quote not found, or quote is 
OBD 84 ; last character 
1 06 td 85 INCL R1 3 point past quote to remainng 
56 4 D BF 6 MOva RO, R6 ; reset R6 & R7 to current str 
59 C2 00C SUBL2 RO, R9 3; compute Len from ist quote 
OC Ht ; thru 2nd quote 
23 06 be 9 INCL R9 ; add 1 for Ist quote 
6E = C 90 L2 = R9, (SP) ; accumulate processed Length 
Bye 91 ; by pongth between (and 
CA 92 ; including) quotes 
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| ee ‘A 33 BRB IGNORE _QUOTED 3 continue processing remainng 
cc 95 END_STR_INQUOTE: ; string ended inside quotes 
8 06 cc 36 ici, al R9 ; include Ist quote 7 
56 sBE 9 ¢ C 9 ADDL3 RY, (SP)+, R6 i; update length of processed 
OD 98 i string by A gpm Length 
D 99 : (quoted length) and reset R6 
57 of D 90 MOVL (SP)+, R7 ; get processed pointer 
9 11 44 4 BRB RETURN 
007 04 END_STR_UNQUOTE : 
56 8& 7D 44 Be MOVQ (SP)+, R6 3 eesqere R6 & R7 to processed 
i strin 
91 58 07 1 Rapa 8S BBC #disc_trail_bit, R8&, RETURN 3; no aefe editing, return 
FF72 1 ODE 0 BRW TRIM_AND_RETURN 
Boe 08 
0€1 09 
Beet 10 EDITSSSUBSTRING: 
5B 04 OQ0E} 11 CLRL R11 : ; mask for SCAN_SPAN Loop 
0358 O11 €1 poe? \¢ BBC #disc_sp_tab_bit, R8, PEED FEM + Con i spaces and 
Py ads, r un 
5B 01 DO O0E7 14 MOVL #space_or_tab, R11 ; discard Spaces and tabs 
OOEA 15 DISCARD_JUNK: 
03 58 8s E1 QOEA 16 BBC #disc_junk_bit, R8&, SCAN_SPAN_LOOP ; don't discard junk bytes 
58 (0 CC OOEE 17 XORL2 #junk_byte, rif ; also discard junk bytes 
OOF 1 18 SCAN_SPAN_LOOP: 
4 0 OOF 1 19 TSTL R11 
3 13 O0F3 20 BEQLU COMPACT_SPACE ; no deletes, go to next bit 
50 56 7D OOF5 21 Ova ~R : initial values for remaining 
5B O000059S5‘°EF 61 50 2A OOF8 $6 1$: SCANC RO, (R1), SCAN_SPAN_TABLE, R11 ; Look for delete character 
50 D5 0101 § TSTL R ; end of string? 
$2 13 0103 4 BEQL COMPACT_SPACE 3; no deletes, next bit 
56 0 c¢2 0105 325 SUBL RO, R6 : save Length scanned 
54 51 dO 0108 26 MOVL R1, R4 3 save ptr to end of scanned 
5B O00000595'EF 61 50 28 0108 44 SPANC RO, (R1), SCAN_SPAN_TABLE, R11 ; skip over delete characters 
50 D5 0114 8 TSTL 0 3 end of string? 
12 13 0116 $3 BEQLU COMPACT_SPACE 3; rest are deleted, next bit 
56 50 CO 0118 0 ADDL2 RO, R6 ; add length not deleted 
7E 28 DO g1ie 31 MOVL R4, -(SP) ; save remaining pointer 
7E 0 00 O11E 3 MOVL RO, =(SP 3 Save remaining length | 
64 61 50 $s 0121 3 MOVC3 RO, (R1), (R4) ; overwrite deleted portion 
50 «BE D 0125 34 mova (SP)+, RO 3 restore remaining len & ptr 
ce «(11 4 : 35 BRB $ ; continue deleting 
01h $ COMPACT_SPACE: 
012A 8 s\clear bit 4 if bit 1 set\ 
3A 58 04 1 012A 9 BC #compact_bit, RB, CHECK_UPCASE 
50 6 D O12E 40 Ova R6, : init RO & R1 for scan 
01 QO00G5S95°EF 61 50 2A 0131 41 1$: SCANC RO, (R1), SCAN_SPAN_TABLE, #space_or_tab ; look for space 
50 05 O13A $6 TSTL ; end of string? | 
gn 13 013C 4 BEQL CHECK_UPCASE 3 Mo space, next bit 
56 0 ¢ 1 f 44 SUBL RO, RB 3 save length scanned 
54 ef D 14 45 MOVL 1, R4 ; save ptr to end of scanned 
01 QO0000595°EF 61 8 B 0144 46 SPANC RO, (R1), SCAN_SPAN_TABLE, #space_or_tab ; ship spaces & tabs 
84 : 0 0140 347 Move = #blank, (R4)+ :"put 1 blank in string 
6 OD 150 48 INCL R6 ; len=len+1, added 1 space 
50 OD 152 49 TSTL RO : end of string? 
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9 BEQL 
ADOL 
§ MOVL 
MOVL 
4 MovCc3 
5 mMOVQ 
§ RB 
8 CHECK_UPCASE: 
5 BBC 
$B 
°¢ BRE 
6 
64 ONLY_UPCASE: 
65 MOVAB 
06 BRE 
6 
68 CHECK_PARENS: 
69 BBC 
At MOVAB 
72 TRANSLATE: 
7 MOVTC 
74 
75 
4S 
77 END_EDIT_SUB: 
78 FI] 
79 
380 


C 2 
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tm | 


CHECK_UPCASE ; rest are compacted, next bit 


» RB ; add Length not compacted 
RG, =(SP) 3 save remaining a 
RO, =(SP) ; save remaining length 


; overwrite compacted portion 
: restore rema oe len & ptr 
i continue compacting 


R8, CHECK_PARENS ; do not upcase, next bit 


#upper_case_bi 
e ONLY _UPCASE : upcase set, parens clear 


UBCASE pits L. 


case <y 3; upcase set, parens set 

TRANSLAT ; go translate both 
UPCASE_TAB, R3 3 upcase set, parens clear 
TRANSLATE 3 gO upcase 


sBoRan: bit, R8, END_EDIT_SUB ; upcase clear, parens clear 
SQBRAK_TO_PAREN, R3 ~ ; upcase clear, parens set 


R6, (R7), #blank, (R3), R6, (R7) ; translate string into 
: self using table stored in 


R3 by above code 


; End of BASSEDIT 
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bess BASSEDIT = Perform BASIC EDITS functio pam i5et 7 $9 :30:95 EBASRTL. SREIBASEDIT.MAR: 1 ve (4) 
19 i+ 
19 : 3; The following tables are used for the SPANC, SCANC, and MOVTC instructions 
| 19 4 ; used in the BASSEDIT routine 
| 19 : 
198389 
19 $8 3+ 
19 ; Table used to ‘remove parity bit’ from all characters in the character 
132 my j string. Used to ensure that the high bit is clear on all characters. 
198 36 PARITY_TAB: 
8332 9 GEN_TRANS_TABLE 138 8 ; fill ASCII character set 
1 94 GEN_TRANS_TABLE 128, ; truncate hi bit 
0295 95 
0295 96 5+ 
8 32 4 ; Table used to translate lower case to upper case. 
8 95 99 UPCASE_TAB: 
95 400 GEN_TRANS_TABLE 97, 0 ; fill table to start of lowercase 
O2F6 401 GEN_TRANS_ TABLE go. 65 ; translate domestic lower to upper 
0 9 40 GEN_TRANS_TABLE 123 ; translate to self 
31 40 GEN-TRANS-TABLE 96, 128 > translate to self 
375 9404 GEN_TRANS_TABLE 31, 192 ; translate int'l lower to upper 
FF 0394 405 BYTE 255 > translate to se 
0395 406 
0395 407 ;+ 
O398 rts ; Table used to translate square brackets to parentheses. 
0395 410 SQBRAK_TO_PAREN: 
0395 411 GEN_TRANS_TABLE 91, 0 ; translate fo self 
ge 03F0 $l¢ BYTE 40 : translate C to ( 
C O3F1 41 -BYTE 92 3; translate to self 
29 O3h§ 414 -BYTE 41 ; translate J to. 
O3F 415 GEN_TRANS_TABLE 162, 94 3 translate remainder to self 
0495 416 
0495 417 ;+ 
0495 418 ; Table used to translate lower case to upper case AND square brackets 
0495 419 ; to parentheses. 
0495 420 ;:- 
0495 $s) UPCASE_PAREN: 
495 4 § GEN_TRANS_TABLE 91, 0 ; translate to self 
28 4FO $s -BYTE 40 3; translate C to ( 
C O4F1 424 BYTE 92 3; translate to self 
29 tre 425 BYTE 4) 3 translate J] to ) 
4F 426 GEN_TRANS_TABLE 3, 94 ; translate to self 
4-6 427 GEN_TRANS_ TABLE 26, 65 3 translate domestic lower to upper 
510 428 GEN_TRANS_ TABLE 123 ; translate to self 
0515 429 GEN_TRANS_ TABLE 96, 128 ; translate to self 
575 430 GEN TRANS_TABLE 31, 192 3 translate int'l lower to upper 
fF 0594 431 BYTE 255 ; translate to self 
595 $36 
595 435 5+ ; 
332 ? : 3; Table used to discard <CR>, <LF>, <FF>, <DEL>, <NUL>. 
5954 6 SCAN_SPAN, TABLE: 
0¢ 5954 -BYTE {yok byte 3 NUL 
00°00'00'00°00'00'00'00" 0596 438 BYTE 8) 3; skip over 
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2 


ip over 


t 
L 
; $ 
3 FF 
3 Sk 


ace_or 
k bytel2]) 
1 wee 


00'00"00"00"00"00"00"00"00"00"00 


COoooooeco: 


ip over 


; ESC 
; sk 
; $s 


00°00°00" 


3; skip over 


WRO-— MLO NOR. DVOARCM— AONK— TM AMM BAAN 
OOde et OODODODOMDODODOVOwWw. Cee K— K— WIM TMM OR. 00 
MMA AALAND DOOODOOOODOOODOOO 
OQoOCOCCOCOOCOCOCOOOCOCOCOCOCOCOOCOOOOoOoOoOoOoOOO 


“eeeeeee 
oooooooo 
S COoooooooo 


eeeeereeee 
ooooooo 
ooooeco 


3 SESESES 


Sppsses 
SSSSSS5 


S888888 


: DEL 


junk byte 


3; skip over 


128] 


ww 


—NOMoOONOK OzvOzwOOOOOOOONOOOOOOOOODO 
COOOOSOCOSOSSCoooooo 


SOOO OOOOOSOO 
SoooooooSoO 
SDOOOSOOOOSO 
SoooooooeSeo 
SOOO OOOOOSOO 
SooooooSooeSoS 
SoOOOOOOOOSS 
SSSSSssssss 
CSOOOOOOOOSOO 
SoooooeSeooSo 
DOOOOOODOOO 
Sessssesooes 
SOOO OOOOODO 
SSSSSSSSESES 


- END 


Sebbo5555 
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Nn NON ON CK ener ow NN NNN ON OOOCOtUN CCN 
Co ooo oOo OO ooocoo oO o So SoOoCoCOoO CoO COOCOOoOCcOoOOoO oO 
- << > 
@eaanckege ae @Qaacae « ae @we@acae = ec <a 
OOM Orr oor LUM OP. IN WO STOR. WOAWVO OMT OLR MK ND & & Fe OMOMNWN 
ovo. UPNOOOOCOCOCOCOCOCWEG VY QADODOOCR. OCP OR.OUCOOO & & # F DNOOOS 
CO—-O-—- CO -QDOODOOCOCOOCOOO-COOCOOOO- O- COOOCOMOMS & # # &# -—OOTNSO 
CODOOOOCOOOOOOOCOOOCOOOCOOSOOOOOOOSOOOOOOOOOSSOO £ # & # COOOOSOO 
SOOO ODODODOOCOSOSOSCOOSOSOSOOOOOSSOOSOSOSOSOSOOOOSOOSOSOO € &# & &# OOOSOSOS 
DOOD OCOCOOCOCOOOOOCOOCOCOSOOOOCSOSOOSOOSOSOOOSCOOOOOSoSS #« # & # COOOOSOO 
CSODOOCOOOCOCOCOCOSOOOCOOOOOCOOOOOOOOOOOOOOOOSOOO é & & &# OOSOOSOO 
COOOOOOCOCOOOCOCOCOOCSOOOCOOOSOOOSOOOOOOSOOOOOOOSSO £ # & &# OOOOOO 
iT) 0 Honunnnnunne uo nun oa " ” " " " 
- 2 - 4 ww -a w 2 ze 
— z he me =a aw w @ [ed = 
@ uw OL OWre Sse@ So = aw >@ _ 
”o Ww VY ont ae nee w to 9< x= =< - & @® 
Zwvre<vo <228 -—YMwe--DSOSGew w —a-<a =x © wr ws i 
weat-O Zow it AZMvMVAUYOY2Z Sou Ye (ee aoc ft e-sou 
=Sver"e at aT et! | a ssw <q Zz wo2® ite ww eau 
- <«>0Qte | & <£OoOwIe-wor | © as Yor oe jet} tt aar<t 
— @20 FFF OO TWOAGAVYVOIM—Eae& o> a it aa tt) oe <«tw 
a §t BeMeaerevr ttt ti MOrrw OD D> Zu ore Q@awtwqauw 
Sy tetetet ew otam © tt wr TEE fe | ew & § wEMVUVuUr Ww | OE 
ZV Ar VYVUVVUVRRRARAARr 1 1 er DS s3¢ MARAAZEE<A dw 
eseews AMMMWMMANAMGVOCVVVLY “A000 2M IEeOrr OVE ee fee wwa 
> > + 4 Writ HINA OOZES 22424 ef DWWOUA Gare rr re ooo 
BDCCCCCAOOOOOOO OOO OWWWW = MEOAASEEMMNMNNMNNNYNYE FE DDS 
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! Psect synopsis ; 


¢ mee eweceseaeece 


PSECT name Al location PSECT No. Attributes 
» 6 « 0000000 ( -) 00 ¢ 9. NOPIC USR CON ABS LCL NOSHR NOEXE NORD WNOWRT NOVEC BYTE 
S$ 00000 ( e 1 ¢ -) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 

_BASSCODE 00006 ( 1685.) 02 ¢ 2.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
fewer cennman weer ceeee mores t 
H Performance indicators ; 

Phase Page faults CPU Time Elapsed Time 

Initialization +] 00:00:00.08 9:00:89 “1 

Command processing 125 ib Shs Se 0:00:03.81 

Pass 238 00:00:08. 0:00:17.27 

Symbol table sort ° 888005" ; Bo BR: 00-8 

Pass 2 9 0:00:02. 00:00:04.0 

Symbol table output 7 bs So 4 9 4 B89 788 «8 

Psect synopsis output 3 Bo 389: 0.02 8208389 08 

Cross-reference output 0 StF Bh 00:00:00.0 

Assembler run totals 497 00:00:11.6 00:00:26.82 


The working set Limit was 1200 pages. . 

58789 bytes (115 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 177 non-local and 2 local symbols. 
454 source lines were read in Pass 1, producing 16 object records in Pass 2. 

9 pages of virtual memory were used to define 8 macros. 


$eoeeceeecooeccccccescceccen 


Macro Library name Macros defined 
US255SDUAZB:(SYSLIBISTARLET.MLB;2 0 ‘= 
190 GETS were required to define 4 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE =SUPPRE SSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=L1S$:BASEDIT/OBJ=OBJ$:BASEDIT MSRC$:BASEDIT/UPDATE=(ENH$:BASEDIT) 
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